1 A=A+1:IFA=1THENPOKE53280,14:POKE53281,6:POKE53265,11:LOAD"SM.CODE",8,1
2 FORI=1TO8:SYS49158,I,14:NEXT:SYS49158,4,6:SYS49158,6,6:POKE16383,0:SYS49155
3 SYS49158,0,102:SYS49158,9,8:POKE53265,11:PRINT"[147][158] [172][162][187] [162][162] [162][162][187][172][162][162][187][162][162][162][172][187][172][187]
4 [153]"  NEWGETWAITGETLOGCOS  GETWAITGET   GET COSWAITGET  OPEN(null)ROGRAMMED BY
5 PRINT"[158] [188][162][188][161][146][161]    [146][190][161][172][146][190]  [162][161][172] [146][161]  [159][202]ASON [198]INCH
6 [153]"SYS RNDWAITNEW*WAITLOGLOGCOSWAITCOS WAITLOGLOGGETLOGWAITNEWRND WAITNEWNEWGETWAITGETGETWAITGET
7 PRINT"[158]  [146][187][190][146][161][172] [146][187][161][188][161][146][161][187][172][161][172][187][146][187]  [161][146][161]  [172] [146][187][188][187][172][146][190][190][162][188][161][172][187][146][187]
8 [153]"SYS    WAITGET WAITNEW GET  WAITGETGETWAITGETGETLOGCOSWAITCOS  GETWAITGET   WAITNEW GETWAITGET   GETLOGCOSWAITCOS
9 PRINT"[158]  [146][188][161][146][161]  [161][146][161][187][146][161][161][146][161][161][146][161]    [161][146][161]    [161][146][161]   [161][172][188]
10 [153]"SYS NEWWAIT LOGCOSNEWNEWWAITLOGCOSLOGCOSNEWNEWWAITLOGCOS  LOGNEWWAITCOSLOGNEWNEWWAITCOSNEWNEWWAIT LOGCOS LOGNEWWAITCOSLOGCOSLOGCOS"
11 [153]"LIST    (null)HE ULTIMATE SCREEN MANIPULATION":[151]53265,27:[151]53281,6
12 [153]"      SYSTEM FOR YOUR LENOMMODORE 64"
13 [153]"CONT","   (null)LEASE WAIT..."
14 [151]52,62:[151]56,62:[156]:[151]56334,[194](56334)[175]254:[151]1,[194](1)[175]251
15 A$[178]"P RETURNS:"[170][196]([181]([187](1)[172]9999)[170]1E4):[129]I[178]0[164]23:SN[178]248[170][181](I[173]3)
16 SA[178]SN[172]64[170]X:A[178][198]([202](A$,I[170]1,1)):[129]J[178]1[164]8:[151]SA[170]J[172]3,[194](55295[170]A[172]8[170]J)
17 [130]:[129]J[178]9[164]20:[151]SA[170]J[172]3,0:[130]:X[178]X[170]1:X[178]X[170]3[172](X[178]3):[151]SA,0:[130]
18 [151]1,[194](1)[176]4:[151]56334,[194](56334)[176]1
19 [129]I[178]1[164]8:[158]49158,I,0:[130]:[158]49158,4,6:[158]49158,6,6
20 [158]49152:[153]"LOAD (null)HE  NORMAL  SCREEN  CONFIGURATION  IS"
21 [153]" ACCEPTABLE FOR  A LOT OF APPLICATIONS.
22 PRINT" [200]OWEVER,  YOU MAY HAVE DESIGNED A GAME
23 [153]" THAT REQUIRES A LANDSCAPE. (null)ITH SIMPLE
24 PRINT" RASTER SCAN GRAPHICS IT IS POSSIBLE TO
25 [153]" PRODUCE  A SECOND  COLOUR.  (null)ET'S ALSO
26 PRINT" ADD A BACKGROUND...":POKE53264,14:FORI=1TO3:POKE53248+I*2,-16+I*24
27 NEXT:FORI=0TO3:POKE53249+I*2,0:POKE53287+I,1:POKE2040+I,248+I:NEXT
28 POKE53248,240:POKE53271,15:POKE53269,15:POKE198,0:WAIT197,1:SYS49158,6,5
29 SYS49158,4,14:PRINT"[147]","[151][180]",,"[157][157][172]     [146][187] [151][221]"
30 PRINT"   [172]     [146][187][151][180]    [172]   [146][187]       [172] [152]   [152]   [146][187][151][221]"
31 PRINT"  [172] [152]   [152]   [146][187] [151][219] [172] [152]    [146][187] [151][171]      [152]   [152]    [146][151][179]"
32 PRINT"    [152]   [152]    [146] [151][221]   [152]     [146][172]    [167]         "
33 PRINT"           [146] [151][221]        [165]    [167] [152]    [152]    "
34 PRINT"   [152]    [152]    [146] [151][221]  [152]   [152]   [165][152]    [152][167] [152]    [152]      [146][187]"
35 PRINT"   [152]    [152]    [146] [151][221]  [152]   [152]   [165][152]    [152][167] [152]       [165][152][167]  "
36 PRINT"       [152]    [146][151] [221]  [152]      [180]    [152][170] [152]       [180][152][170]  "
37 PRINT"[144] [212]HIS COULD  BE CLASSED AS SATISFACTORY
38 [153]" ALTHOUGH,  AGAIN  WITH  SIMPLE  RASTER
39 PRINT" SCAN GRAPHICS,  WE  CAN ELIMINATE  THE"
40 PRINT" LEFT AND RIGHT BORDERS...":POKE198,0:WAIT197,1:SYS49158,3,14:SYS49158,5,5
41 GOTO44
42 PRINT"":FORI=0TO7:PRINT"                                       ":NEXT
43 PRINT"[145][145][145][145][145][145][145]";:RETURN
44 GOSUB42:PRINT" [215]E[160] COULD ALSO  ELIMINATE ONE OR OTHER
45 [153]" OF THE BLACK LINES...":[151]198,0:[146]197,1:[158]49158,1,14:[158]49158,2,14
46 [153]" (null)R WE COULD GET RID OF BOTH OF THEM...":[129]T[178]1[164]100:[130]
47 [151]198,0:[146]197,1:[158]49158,7,5:[158]49158,8,5:[141]42
48 [153]" (null)O  GIVE A CLOSEMORE  ARCADE-GAME  LOOKING
49 PRINT" DISPLAY WE CAN ADD THE  LEFT AND RIGHT
50 [153]" BORDERS  AGAIN BUT LEAVE THE UPPER AND":[153]" LOWER AS THEY ARE..."
51 [151]198,0:[146]197,1:[158]49158,3,0:[158]49158,5,0:[141]42
52 [153]" (null)HE  CORNERS OF  THE SCREEN  SHOULD BE
53 PRINT" BLACK BUT  WITH  STANDARD [210][211][199]S THIS IS
54 [153]" NOT POSSIBLE. (null)SING (null)CREEN (null)ANIPULATOR
55 PRINT" YOU WILL HAVE NO TROUBLE...":POKE198,0:WAIT197,1:SYS49158,1,0
56 SYS49158,7,0:GOSUB42:PRINT" [217]OU MAY WISH TO ADD ANOTHER SECTION OF
57 [153]" BORDER  IN  WHICH  SCORE  DETAILS, ETC
58 PRINT" COULD BE DISPLAYED...":POKE198,0:WAIT197,1
59 SYS49158,8,0:FORI=0TO3:POKE53291+I,2:NEXT:POKE53277,240
60 FORI=4TO7:POKE53248+I*2,-160+I*48:POKE53249+I*2,4:POKE2040+I,248+I:NEXT
61 POKE53269,255:GOSUB42:PRINT" [201]F YOU  PREFER, JUST HAVE  THE CORNERS
62 [153]" OF THE SCREEN A DIFFERENT COLOUR...":[151]198,0:[146]197,1
63 [158]49158,3,14:[158]49158,5,5:[158]49158,8,5
64 [141]42:[153]" (null)O SUMMARISE, THERE ARE EIGHT SECTIONS
65 PRINT" TO  THE SCREEN  AND  EACH[160] ONE[160] CAN BE
66 [153]" COLOURED DIFFERENTLY...":[151]198,0:[146]197,1:[151]53269,15:[153]"LOAD"
67 C(0)[178]102:C(9)[178]8:[129]I[178]1[164]8:[135]C(I):[158]49158,I,C(I):[130]:[131]0,15,7,10,8,2,12,11
68 [153]"STOP (null)HE USER-DEFINABLE SPLIT CAN BE MOVED"
69 [153]" EITHER UP OR DOWN...":X[178]102:D[178]1:[151]198,0
70 X[178]X[170]D:D[178]D[170]2[172](X[178]118)[171][180](X[178]0):[158]49158,0,X:[161]A$:[139]A$[179][177][199](13)[167]70
71 [139]X[178]102[167]75
72 [129]I[178]X[164]102[169][180](102[171]X)[172]2:[158]49158,0,I:[130]:[158]49158,9,4:[151]650,255
73 [153]"LOADSTOP (null)OMETIMES A FLICKER  DEVELOPS.  PEEKUT BY
74 PRINT" ALTERING  A  TIMING  CONSTANT  YOU CAN
75 [153]" EFFECTIVELY MOVE THIS OUT OF VIEW...":X[178]4:D[178]1:[151]198,0
76 X[178]X[170]D:D[178]D[170]1[172](X[178]60)[171][180](X[178]4):[158]49158,9,X[172].25:[161]A$:[139]A$[179][177][199](13)[167]76
77 [129]I[178]0[164]3:C(I[172]2[170]1)[178]14:C(I[172]2[170]2)[178]6:[130]
78 [153]"LOAD":[129]I[178]0[164]3:[158]49158,1[170]I[172]2,5:[158]49158,2[170]I[172]2,11:[130]:[151]53269,0
79 [158]49158,9,6:[153]"LOADSYS "[199](34)"(null)LEN(null)VALVAL(null) (null)ATN(null)RIGHT$(null)(null)(null)ATN(null)(null)(null)"[199](34)"    PEEKY MID$ASON ASCINCH
80 PRINT,"[150][207]PTIONS SCREEN":PRINT"[155]","F1: [195]HANGE PARAMETERS"
81 PRINT"[155]","F3: [211]AVE CODE":PRINT"[155]","F5: [209]UIT PROGRAM"
82 GETA$:IFA$="[133]"THEN116
83 IFA$="[135]"THENPRINT"[147][211]CREEN [205]ANIPULATOR":PRINT"[194]Y [202]ASON [198]INCH":NEW
84 IFA$<>"[134]"THEN82
85 PRINT"[147][158] "CHR$(34)"[211][195][210][197][197][206] [205][193][206][201][208][213][204][193][212][207][210]"CHR$(34)"    [194]Y [202]ASON [198]INCH"
86 PRINT,"  [150][211]AVE [195]ODE [207]PTION":PRINT"[155]   [204]OAD CODE TO WHAT ADDRESS?:  49152";
87 PRINT"[157][157][157][157][157][157]"CHR$(34)"";:OPEN1,0:INPUT#1,A$:CLOSE1:A=VAL(A$)
88 IFA>2051ANDA<65177THEN90
89 PRINT:PRINT"[153]       [195]ODE [195][193][206][206][207][212] START AT[159]"A:FORT=1TO1000:NEXT:GOTO78
90 LC=A:PRINT:PRINT"[155] [196]O YOU WANT THE CODE TO AUTOBOOT ([217]/[206])":POKE198,0:AB=0
91 GETA$:IFA$="Y"THENAB=1:GOTO93
92 IFA$<>"N"THEN91
93 SYS49155:FORI=0TO9:SYS49158,I,C(I):NEXT:POKE53265,27
94 PRINT"[147][207][203]. [208]LEASE WAIT. [215]ORKING...":FORI=0TO359:POKE1664+I,PEEK(49152+I)
95 NEXT:RESTORE:FORI=0TO7:READA:NEXT:FORI=0TO32:READA,B:A=1664+A:B=B+LC
96 POKEA,(B/256-INT(B/256))*256:POKEA+1,B/256:NEXT:B=LC+104:POKE1732,B/256
97 POKE1730,(B/256-INT(B/256))*256
98 DATA1,61,4,37,7,270,10,317,62,37,111,22,114,22,131,22,147,12,150,13
99 DATA180,14,183,15,192,23,212,24,218,16,221,17,251,18,254,19,271,25,276,25
100 DATA284,23,292,25,295,24,305,25,314,11,318,25,323,20,326,25,331,21,336,12
101 DATA339,20,344,21,347,12
102 IFAB=0THENSA=1664:AC=LC:GOTO110
103 FORI=0TO82:READA:POKE1581+I,A:NEXT:DATA54,3,237,246,62,241,47,243,102,254
104 DATA165,244,237,245,0,0,120,169,202,162,241,141,38,3,142,39,3,88,162,0,189
105 DATA121,3,157,0,0,232,208,247,189,121,4,157,0,0,232,224,136,208,245,32,0,0
106 DATA169,78,162,69,160,87,141,119,2,142,120,2,140,121,2,169,13,162,147,160,5
107 DATA141,122,2,142,123,2,132,198,96
108 SA=1581:AC=806:A1=(LC/256-INT(LC/256))*256:A2=LC/256
109 POKE1615,A1:POKE1616,A2:POKE1632,A1:POKE1633,A2:POKE1624,A1:POKE1625,A2+1
110 PRINT,,"[145][157][157][211]AVING CODE...":OPEN2,8,1,"@:SM.CODE"+STR$(LC)+",P,W"
111 PRINT#2,CHR$((AC/256-INT(AC/256))*256)CHR$(AC/256);
112 FORI=SATO2023:PRINT#2,CHR$(PEEK(I));:NEXT:CLOSE2
113 OPEN15,8,15:INPUT#15,A,A$,B,C:CLOSE15:IFA=0THENSYS49152:GOTO78
114 PRINT"[147] [196]ISK [197]RROR NUMBER"A"[157]:":PRINT" "A$" @"B"[157],"C
115 PRINT" [208]RESS ANY KEY":POKE198,0:WAIT198,1:POKE198,0:SYS49152:GOTO78
116 C=C(6)AND15:POKE646,ABS(C=0ORC=2ORC=6ORC=9ORC=11)
117 PRINT"[147] F1-F8:"SPC(11)"[195]HANGE COLOURS"
118 PRINT" [195]RSR [213]P/[196]OWN:    [193]LTER SPLIT POSITION"
119 PRINT" [195]RSR [204]EFT/[210]IGHT: [212]IMING CONSTANT"
120 PRINT" [193]NY OTHER KEY:   [205]AIN OPTIONS SCREEN"
121 FORI=0TO9:SYS49158,I,C(I):NEXT
122 GETA$:IFA$="[145]"THENC(0)=C(0)+1*(C(0)>0):SYS49158,0,C(0):GOTO122
123 IFA$=""THENC(0)=C(0)-1*(C(0)<119):SYS49158,0,C(0):GOTO122
124 IFA$="[157]"THENC(9)=C(9)+1*(C(9)>1):SYS49158,9,C(9):GOTO122
125 IFA$=""THENC(9)=C(9)-1*(C(9)<16):SYS49158,9,C(9):GOTO122
126 IFA$=""THEN122
127 IFA$<"[133]"ORA$>"[140]"THEN78
128 C=VAL(MID$("13572468",ASC(A$)-132,1))
129 C(C)=C(C)+1:C(C)=C(C)+16*(C(C)=16):SYS49158,C,C(C)
130 ONABS(A$="[139]")+1GOTO122,116